﻿Imports VN.INS.DL.DALC
Imports VN.INS.BL.BE
Public Class ListaPoaHistoricoBC

    Public Function ListaPoaHistorico(ByVal poah As String, ByVal Version As String) As DataTable
        Dim objPOAHDA As ListaPoaHistoricoDA
        Dim objDt As DataTable

        Try
            objPOAHDA = New ListaPoaHistoricoDA
            objDt = objPOAHDA.ListaPoaHistorico(poah, Version)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function ListaHFinanciero(ByVal poahfin As String, ByVal hfinVersion As String) As DataTable
        Dim objPOAHDA As ListaPoaHistoricoDA
        Dim objDt As DataTable

        Try
            objPOAHDA = New ListaPoaHistoricoDA
            objDt = objPOAHDA.ListaHFinanciero(poahfin, hfinVersion)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    Public Function ListaHFisico(ByVal poahfis As String, ByVal hfisVersion As String) As DataTable
        Dim objPOAHDA As ListaPoaHistoricoDA
        Dim objDt As DataTable

        Try
            objPOAHDA = New ListaPoaHistoricoDA
            objDt = objPOAHDA.ListaHFisico(poahfis, hfisVersion)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function ListaHComponente(ByVal poahcom As String, ByVal hcomVersion As String) As DataTable
        Dim objPOAHDA As ListaPoaHistoricoDA
        Dim objDt As DataTable

        Try
            objPOAHDA = New ListaPoaHistoricoDA
            objDt = objPOAHDA.ListaHComponente(poahcom, hcomVersion)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function
End Class
